unit TankData;

{$mode objfpc}{$H+}

//========================================================================================
//
// Unit : TankData.pas
//
// Description :
//
// Called By : Main : TfrmMain.mnuFileNewTankClick
//
// Calls :
//
// Ver. : 1.0.0
//
// Date : 8 Nov 2015
//
//========================================================================================

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, Buttons;

type

  { TfrmTankData }

  TfrmTankData = class(TForm)
    bbtCancel: TBitBtn;
    bbtOK: TBitBtn;
    bbtHelp: TBitBtn;
    cbxLengthUnits: TComboBox;
    cbxLengthUnits1: TComboBox;
    cbxLengthUnits2: TComboBox;
    edtWidth: TEdit;
    edtTankName: TEdit;
    edtDepth: TEdit;
    edtHeight: TEdit;
    edtVolume: TEdit;
    gbxTankName: TGroupBox;
    gbxTankUnits: TGroupBox;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    gbxTankSize: TGroupBox;
    StaticText1: TStaticText;
    stxVolume: TStaticText;
    stxDepth: TStaticText;
    stxHeight: TStaticText;
    stxWidth: TStaticText;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmTankData: TfrmTankData;

implementation

{$R *.lfm}

uses
  TankTable;

//========================================================================================
//          SUPPORT ROUTINES
//========================================================================================

//========================================================================================
//          PRIVATE ROUTINES
//========================================================================================

//========================================================================================
//          PUBLIC ROUTINES
//========================================================================================

//========================================================================================
//          PUBLISHED ROUTINES
//========================================================================================

//========================================================================================
//          PROPERTY ROUTINES
//========================================================================================

//========================================================================================
//          MENU ROUTINES
//========================================================================================

//========== POPUP MENUS ===================================================================

//========================================================================================
//          TOOLBAR ROUTINES
//========================================================================================

//========================================================================================
//           STATUSBAR ROUTINES
//========================================================================================

//========================================================================================
//          FILE ROUTINES
//========================================================================================

//========================================================================================
//          COMMAND BUTTON ROUTINES
//========================================================================================

//========================================================================================
//          CONTROL ROUTINES
//========================================================================================

//========================================================================================
//          DATABASE ROUTINES
//========================================================================================

//========================================================================================
//          FORM ROUTINES
//========================================================================================
procedure TfrmTankData.FormCreate(Sender: TObject);
begin

end;// procedure TfrmTankData.FormCreate

//========================================================================================
procedure TfrmTankData.FormShow(Sender: TObject);
begin

 // showmessage(frmTankTable.TankTypeArray.   );

end;// procedure TfrmTankData.FormShow

//========================================================================================

end.// unit NewTank

